# Utility functions
rev.default <<- function (x) if (length(x)) x[length(x):1L] else x

# Constructors
numeric <- function (length = 0L) .Internal(vector("double", length))
